************************************************
*
*************************************************
set more off
parmest,sa(x,replace) label
local dep=e(depvar)
indeplist, local 
local X = r(X)	
levelsof country_name_short, local(g)

foreach i of local g {
		di "`i'"
		clogit empgov `X' if majsit==0 & country!="`i'", group(cab_id)
		preserve
		parmest,norestore label
		gen country="`i'"
		append using x 
		save x,replace
		restore
		}

		
preserve
use x, clear
replace country="ALL" if country==""
egen x=group(country)
replace x=x*2 
labmask x, values(country)
levelsof parm, local(pa)
cap graph drop _all


eclplot estimate min95 max95 x if parm=="minority" | parm== "uppermin" | parm=="medianparty" , rplottype(rspike) xlabel(2(2)28, angle(90)) supby(label, spaceby(0.25) offset(-.5)) yline(0) yscale(noline) xscale(noline) scheme(s2mono) graphregion(fcolor(white) lcolor(white)) legend(region(lcolor(white))) xtitle(Excluding cabinets from) name(size)
eclplot estimate min95 max95 x if parm=="division" | parm=="connected"| parm=="extremeparties" , rplottype(rspike) xlabel(2(2)28, angle(90)) supby(label, spaceby(0.25) offset(-.5)) yline(0) yscale(noline) xscale(noline) scheme(s2mono) graphregion(fcolor(white) lcolor(white)) legend(region(lcolor(white))) xtitle(Excluding cabinets from) name(ideo)
eclplot estimate min95 max95 x if parm=="pecpar" | parm== "secfin" | parm=="pecext" , rplottype(rspike) xlabel(2(2)28, angle(90)) supby(label, spaceby(0.25) offset(-.5)) yline(0) yscale(noline) xscale(noline) scheme(s2mono) graphregion(fcolor(white) lcolor(white)) legend(region(lcolor(white))) xtitle(Excluding cabinets from) name(pec)
